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i. g^&jgO, go ^c r lp^lo n 

jEtsgl if fr; io a ocmpllcblo not of ^ B-e*prejSB ion-da fined 
functions Khloh ainiplify algebrfcie oxprouEtionB# da otfprianiona 
which mw appropriate for £*HE*i£Z ^ defined reouroivoly as 
rollows: 
? - oil atoms, fixed and floating point number* 

4 - sill expraosiona of the forou 

' frUKUS • a), ■ ■. ;:■-■ ;:-'";.-: . 

\. (recip . a), ';';\./ .■'--, 

(POWER, O^, Eg), 

(SUB?, s^, a 2 ) , 

Where G r 3 i , B^* • ••* a n e*UQ# 

glr^ify la ft function, not ft psaudo -function, fcfcfct io, the 
list structure of as esp^asion la not igodifiod by »i3Ell£K« 
aitag.lifg tffijceo about 6000 words of free storgis 6 *fc*fl »tei>&d MIA. 
B-espre talon and tfbout $OOQ words token ooffipiled. It totes s about 

5 minutea to read all the f unctions into the 7Q£ uaine the cnllna 

card reader, and about 4 minutes froa tape* 

■■...-■'■ i 

L " 

* ■ 

It is possible for two expressions having the aanw alstbreie 
structure to be represented by different list structures, On s« 
(miS 2 X) and (F&03 12)* Thle creates a serious problea, for a 
LISP function to recognize equally of electorate forna would bo 
quite complex and tine conatnains* ^lerefore the Eiaplificafcion 
routines una the devio*' of cwpniofllly ordorins all the algabrple 
e^pro^eiiarts which thay ore&te. Thus it is possible to rococnlse 
actuality of form with egunl, \ 

; 5he ordering schama used providao a hierarchy of S-fficpreattionB 
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7- papfomt all tb& abova airtplifiaatlon- on tor^o occurring 
in tfeo denominator If tho s^urnsrnt contains HIVII>E*e and BECX?*b+ 

flMtn fcJ WOlt 

1* change the Blgn of x if It in a n^bar ; 

£, fchrotf sitroy tha JUNTOS if x is of tea Corn ff-IKUS ♦ E) 

J« revcreo ths -order of SvET axprosaloaa* 

, . ■ ■ ■ ■ ■ 

i ' fefecpU] Willi ■..:.*' , 

..' 1, divide iaO by x if 3; la t nunftor * 

I' 2* yielS oonsEWIKfffl;oliEPoptE]J .If x Is fl£LTO * E) 

3- thww away initial RECIP, 

^, r*Vorae tho order of JHVIEE Gjqprooslons, keeping nunerl- 

aal terms (if present) In the roxerstoj? 

5* simplify each to3n in 'PftECT expressions ceparatelyt 

* :-.... .- :■ 

*££^£te+yl - (jinprdClIct[x;alna?op[yl]i . "/ * 

sflp ^ bie 3 will J . ' r '.V "" ;/. : : 

1. yield 1 if a ia 0. 

2. yield If b ia 0. 
3» yield b if e is 1* 

4. perform the proper nrawrloal operation if lfcEsinary 
JiUEfeera are not Involved^ e» g> (-1) * -1* (*0 " 1* ■ 
{-i) S ^ - (POWER -1 a*fc), ■ > 

5- yield oonalRECIPjsiiipwprEfe]] If b - (RECIP £)* 
6, aijujllfy each tern individually in PRECT or PITiEE expr&u Elans. 
T« t:?est ci aytftolio ainua ulgn If possible (If e is an inte£sr)» 
8 S multiply exponents if b la its-elf a POWER exproaalon- 

Gitn3ub [x;yl *■ aiBplsCliatlxjaiinointy]] J 

■ ■. ' '. ■ - . ' 

It la quito &cceptE$la to use the stibf unctions sinpl£[£l, 
oicprdt^J/ ttinHnin[x|, ete.» aepsrafcely, provided that the argu- 
mnta of thaoe functions htv» been simplified* In foot thla la 
edYls&ble. fop if one let* thctso funatlona put th« connectives 
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pbn(3tl gata' the cnnolutc vnlws ot fixed or floating point 
nuusbors* 13? x is not a number an error will result* 

d^Exjy] is primarily for fixed point mrtbers* If x la 
divisible by y op x is a floLtvlnu puint matber it Is I; P other- 
vise* If elthoi* x«7 is not e> number tn error will occur* 

5£^x;y] ie for fixod point nunbers, It finds the greatest 
oot?h>oii divisor If x/ and y / 0, and x and y are fixed point 
nutibera? if x ™ gedfajyl * y* if y * ficdtxjy) - x. 

flpjsftndtfsfji] is the* Bwne aa ma p con , exaept it appends re- 
sultant liets instead of nc^cne-lns them. 

f?\pp*£[£;p] p is ft predicate In one variable. Tn^prJid la 
T if pDtul ia 5 for every x^*' {£ ■* C^*^^,..,,^)), 

B;ai^-ln [o3 is fin output function - it turns the expression 
e into a list iriiioh will print out lil» Fortran, rnis la for 
convenience in reading the output. 

f^F5^t_^r [x;y1 gives & unlq.ue order ir.g of ato^lo sycfbols. ■ If 
x end y era atcraua, ^e^ter [x;y] ^ T if y oootipiet* a higher storage 
location that x» 

for-ffi&p [xiyl orders ^-expressions uniquely « 5fce relation be- 
.twsea tfce different possible elements x and y Let 

JUL < nmib er ■< at era < Hat » 
TWbrder csons numbers is by inoreacirs TTignitaie, the atocifl 
j&re ordered by ^eater (ceo above), arjJ Hate are ordered accord- 
ing to the firat eleioanfc," op by succeeding aleusents in the capo 
when aar£x] - car[yj f and by length If corresponding eiexente are 

c--v J., 

o^^rt^I ■ orders the top level of the list i by the schema 

£i'ven above- 

Examples «jto [ (% (A,B,C) (a) (A t B) 3 MIL lt>l 

* (NIL 3 4 X {Aj {A,B) (a>,C)J 
in ^ora [a;a] reoepies the top level of £, insert ins * la** 
tne proper position to yield an ordered list. 

All eiibf ligations haw been tested on a United number of 
trial *iuwo# The connective functions are loiown to work en a 
large class of expressions, "but sciae bus& may nsnain. Pleas* 
bring any Information about buss to £5-265, - 1 



